home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of Shareware
/
Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso
/
mac
/
ZIPPED
/
DOS
/
EDITORS
/
BE300.ZIP
/
SIDEBY.CHS
< prev
next >
Wrap
Text File
|
1992-10-18
|
930b
|
40 lines
double_down{
if(ask("file_w_width")!=ask("sys_cols)){
/* boom! we have to do both
if(ask("file_w_left")==1){
b_cmd("down_page");
b_cmd("window_next");
b_cmd("down_page");
b_cmd("window_prev");
}
else{
b_cmd("down_page");
b_cmd("window_prev");
b_cmd("down_page");
b_cmd("window_next");
}
}
else{
b_cmd("down_page");
}
}
double_up{
if(ask("file_w_width")!=ask("sys_cols)){
/* boom! we have to do both
if(ask("file_w_left")==1){
b_cmd("up_page");
b_cmd("window_next");
b_cmd("down_page");
b_cmd("window_prev");
}
else{
b_cmd("up_page");
b_cmd("window_prev");
b_cmd("down_page");
b_cmd("window_next");
}
}
else{
b_cmd("down_page");
}
}